{***************************************************************
    SpyGestion  Copyright (C) 2008 Christophe KOALI <nature2gas@gmail.com>
    
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.
    
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
    
    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.
    
****************************************************************}
unit uSystemSolaire;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, BaseGrid, AdvGrid,

  modBaseDeDonnesRapport, modRapport,
  Buttons;

type
  TformSystemSolaire = class(TForm)
    sgSystem: TAdvStringGrid;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure LoadSystemSolair(Galaxie: integer; System: integer);

  public
    { Public declarations }
  end;

var
  formSystemSolaire: TformSystemSolaire;

implementation

{$R *.dfm}

procedure TformSystemSolaire.LoadSystemSolair(Galaxie: integer; System: integer);
begin

end;

procedure TformSystemSolaire.FormCreate(Sender: TObject);
var i: integer;
begin

    // Position de la planète
    sgSystem.Cells[0, 0] := 'Pos.';
    sgSystem.CellProperties[0, 0].Alignment := taRightJustify;
    sgSystem.ColWidths[0] := 40;


    i := 1;

    // Nombre de fois que cette planète a été attaqué
    sgSystem.Cells[i, 0] := 'At.';
    sgSystem.CellProperties[i, 0].Alignment := taCenter;
    sgSystem.ColWidths[i] := 30;
    Inc(i);


    // Niveau de puissance sur la planète (flotte + def)
    sgSystem.Cells[i, 0] := 'Lvl';
    sgSystem.CellProperties[i, 0].Alignment := taCenter;
    sgSystem.ColWidths[i] := 30;
    Inc(i);

    // Nombre de GT pour récupérer toute les ressources possible
    sgSystem.Cells[i, 0] := 'GT';
    sgSystem.CellProperties[i, 0].Alignment := taCenter;
    sgSystem.ColWidths[i] := 50;
    Inc(i);

    // Durée du dernier sondage
    sgSystem.Cells[i, 0] := 'Valid.';
    sgSystem.CellProperties[i, 0].Alignment := taLeftJustify;
    sgSystem.ColWidths[i] := 130;
    Inc(i);





end;

end.
